home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / pccheck.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-11-11  |  7.4 KB  |  209 lines
  1. 10  ' TO START THIS PROGRAM IMMEDIATELY WITHOUT THE OPENING SCREEN, TYPE "RUN 500"
  2. 20  ' PC-CHECK BY SHAWN PELTIER
  3. 30  ' THIS PROGRAM CONSTANTLY KEEPS A RUNNING TOTAL OF THE BALANCE, THAT IS WHY YOU DO NOT SEE MUCH UNDER THE HEADING "---====COMPUTE FINAL BALANCE====---". IT ONLY HAS TO ADD INTEREST BY THEN. (RUNNING TOTAL IS KEPT AS VARIABLE "P".)
  4. 40  ' ALL OF THE INPUT ROUTINES ARE IN A PATTERN. THEY ASK YOU HOW MANY ITEMS, DIMENSION A VARIABLE, ASK EACH ITEM'S VALUE, AND ADD THEM UP. ALL QUESTIONS ARE VERIFIED. SEE OPENING SCREEN FOR MORE.
  5. 50  SCREEN 2:SCREEN 0:KEY OFF
  6. 60  COLOR 15,1,1
  7. 70  CLS
  8. 80  PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  9. 90  PRINT "OPEN                                   PC-CHECK                                  OPEN"
  10. 100  PRINT "OPEN                                 Version 1.02                                OPEN"
  11. 110  PRINT "OPEN                               By Shawn Peltier                              OPEN"
  12. 120  PRINT "OPEN             (See REMark statements for more info on program itself)         OPEN"
  13. 130  PRINT "OPEN PC-CHECK is a non-copyrighted program by Shawn Peltier. If you have any     OPEN"
  14. 140  PRINT "OPEN additions to the program, just increase the version by .01 and add your nameOPEN"
  15. 150  PRINT "OPEN at the bottom of this screen. If you have any questions, send E-Mail to     OPEN"
  16. 160  PRINT "OPEN Shawn Peltier on NOPC-RBBS (504)-895-5259. If you feel this program is of   OPEN"
  17. 170  PRINT "OPEN value, please send any donations ($5 suggested) to:                         OPEN"
  18. 180  PRINT "OPEN                   Shawn Peltier                                             OPEN"
  19. 190  PRINT "OPEN                   4141 Veterans Blvd. Suite 300                             OPEN"
  20. 200  PRINT "OPEN                   Metairie, Louisiana  70002                                OPEN"
  21. 210  PRINT "OPEN You may also mail Shawn any questions at this adress. If you would like a   OPEN"
  22. 220  PRINT "OPEN program made especially for you by Shawn, send him a request. His prices    OPEN"
  23. 230  PRINT "OPEN are very cheap! Watch for these programs from Shawn Peltier:                OPEN"
  24. 240  PRINT "OPEN PC-SORT, PC-BILL, PC-QUIZ, PC-BOWL, PC-CRIME, PC-LAUGH, PC-BOARD, PC-JUDGE  OPEN"
  25. 250  PRINT "OPEN PC-MATH, PC-TEMP, AND PC-DRAW. Thank you for your support!                  OPEN"
  26. 260  PRINT "OPEN                                  Shawn Peltier                              OPEN"
  27. 270  '        ---====NEXT FIVE LINES PRODUCE BOTTOM LINE OF OPENING SCREEN====---
  28. 280  PRINT CHR$(200);
  29. 290  FOR X=1 TO 77
  30. 300  PRINT CHR$(205);
  31. 310  NEXT X
  32. 320  PRINT CHR$(188)
  33. 330  PRINT "(Press 's' to continue)"
  34. 340  A$=INKEY$:IF A$="S" OR A$="s" THEN 350 ELSE 340
  35. 350  CLS
  36. 360  PRINT "This program will balance your checkbook if you know all the"
  37. 370  PRINT "requested information. Have your checkbook and bank statement "
  38. 380  PRINT "available so that I can get the needed data. "
  39. 390  PRINT "O.K. Let's go!"
  40. 400  SOUND 146.83, 2
  41. 410  SOUND 174.61, 2
  42. 420  SOUND 220, 2
  43. 430  SOUND 261.63, 2
  44. 440  FOR DELAY=1 TO 400
  45. 450  NEXT DELAY
  46. 460  SOUND 220, 2
  47. 470  SOUND 261.63, 2
  48. 480  FOR DELAY=1 TO 5000
  49. 490  NEXT DELAY
  50. 500  CLS
  51. 510  PRINT "Hint: answer all verification questions with 'n' or 'y'."
  52. 520  PRINT "O.K. Here goes--->";
  53. 530  '
  54. 540  '   ---====BEGGINING OF THE HEART OF THE PROGRAM====---
  55. 550  '
  56. 560  INPUT "What is the beggining STATEMENT balance???";BCB
  57. 570  PRINT "You said that the beginning statement balance is";BCB
  58. 580  INPUT "Is this correct";ER$
  59. 590  IF ER$="n" THEN 560
  60. 600  '
  61. 610  '   ---====DEPOSITS ROUTINE====---
  62. 620  '
  63. 630  INPUT "How many deposits are on the statement?";DOS
  64. 640  PRINT "You said that there were";DOS;"deposits on the statement. Is this correct";
  65. 650  INPUT ER$
  66. 660  IF ER$="n" THEN 630
  67. 670  DIM DEPOSIT(DOS)
  68. 680  FOR D=1 TO DOS
  69. 690  PRINT "Deposit";D;"===>";:INPUT DEPOSITS(D)
  70. 700  NEXT D
  71. 710  PRINT "O.K. How many deposits are there NOT on the statement?";:INPUT DNOS
  72. 720  DIM DEP(DNOS)
  73. 730  FOR DS=1 TO DNOS
  74. 740  PRINT "Deposit";DS;"===>";:INPUT DEPS(DS)
  75. 750  NEXT DS
  76. 760  PRINT "The following is a list of the deposits you gave me:"
  77. 770  FOR I=1 TO DOS
  78. 780  PRINT "               ";DEPOSITS(I)
  79. 790  NEXT I
  80. 800  FOR U=1 TO DNOS
  81. 810  PRINT "               ";DEPS(U)
  82. 820  NEXT U
  83. 830  PRINT "Are these correct???"
  84. 840  INPUT ER$
  85. 850  IF ER$="n" THEN ERASE DEPOSIT:ERASE DEP:GOTO 630
  86. 860   X=0
  87. 870  FOR JJ=1 TO DOS
  88. 880  X=X+1
  89. 890  IF X>0 THEN 910
  90. 900  V=0+DEPOSITS(JJ)
  91. 910  V=V+DEPOSITS(JJ)
  92. 920  NEXT JJ
  93. 930  Z=0
  94. 940  FOR XX=1 TO DNOS
  95. 950  Z=Z+1
  96. 960  IF Z>0 THEN 980
  97. 970  B=0+DEPS(XX)
  98. 980  B=B+DEPS(XX)
  99. 990  NEXT XX
  100. 1000  LET D=BCB+V+B
  101. 1010  CLS
  102. 1020  '
  103. 1030  '   ---====CHECKS PAID ROUTINE====---
  104. 1040  '
  105. 1050  INPUT "How many checks does your bank statement show were paid?";CP
  106. 1060  PRINT "You said your bank statement shows";CP;"checks were paid."
  107. 1070  INPUT "Is this correct";ER$
  108. 1080  IF ER$="n" THEN 1050
  109. 1090  DIM CHECKS(CP)
  110. 1100  FOR C=1 TO CP
  111. 1110  PRINT "Paid Check";C;"=====>";:INPUT PAIDCHEC(C)
  112. 1120  NEXT C
  113. 1130  PRINT "You gave me these paid checks:"
  114. 1140  FOR S=1 TO CP
  115. 1150  PRINT "                    ";PAIDCHEC(S)
  116. 1160  NEXT S
  117. 1170  INPUT "Are these correct";ER$
  118. 1180  IF ER$="n" THEN ERASE CHECKS:GOTO 1050
  119. 1190  IF ER$="no" THEN ERASE CHECKS:GOTO 1050
  120. 1200  FOR K=1 TO CP
  121. 1210  H=H+PAIDCHEC(K)
  122. 1220  NEXT K
  123. 1230  LET P=D-H
  124. 1240  FOR DELAY=1 TO 4000
  125. 1250  NEXT DELAY
  126. 1260  CLS
  127. 1270  '   ---====OUTSTANDING CHECKS ROUTINE====---
  128. 1280  INPUT "How many outstanding checks";OC
  129. 1290  PRINT "Are there";OC;"outstanding checks";:INPUT ER$
  130. 1300  IF ER$="n" THEN 1280
  131. 1310  DIM ZZTOP(OC)
  132. 1320  FOR ZZ=1 TO OC
  133. 1330  PRINT "Outstanding check";ZZ;"=====>";:INPUT OUTCHECK(ZZ)
  134. 1340  NEXT ZZ
  135. 1350  PRINT "You gave me these outstanding checks:"
  136. 1360  FOR Y=1 TO OC
  137. 1370  PRINT "                           ";OUTCHECK(Y)
  138. 1380  NEXT Y
  139. 1390  INPUT "Are these correct";ER$
  140. 1400  IF ER$="n" OR ER$="no" THEN ERASE ZZTOP:GOTO 1270
  141. 1410  FOR A=1 TO OC
  142. 1420  W=W+OUTCHECK(A)
  143. 1430  NEXT A
  144. 1440  P=P-W
  145. 1450  '   ---====MISC. INPUT ROUTINE====---
  146. 1460  '
  147. 1470  INPUT "Service charge was";SC
  148. 1480  PRINT "You said the service charge was";SC
  149. 1490  INPUT "Is this correct";ER$
  150. 1500  IF ER$="n" OR ER$="no" THEN 1470
  151. 1510  LET P=P-SC
  152. 1520  INPUT "NSF checks returned";NSF
  153. 1530  PRINT "You said that the NSF checks totaled";NSF
  154. 1540  INPUT "Is this correct";ER$
  155. 1550  IF ER$="no" OR ER$="n" THEN 1520
  156. 1560  LET P=P-NSF
  157. 1570  INPUT "Special bank charges";SBC
  158. 1580  PRINT "You said special bank charges totaled";SBC
  159. 1590  INPUT "Is this correct";ER$
  160. 1600  IF ER$="n" OR ER$="no" THEN 1570
  161. 1610  LET P=P-SBC
  162. 1620  INPUT "Miscellaneous charges";MC
  163. 1630  PRINT "You said Miscellaneous Charges totaled";MC
  164. 1640  INPUT "Is this correct";ER$
  165. 1650  IF ER$="n" OR ER$="no" THEN 1620
  166. 1660  LET P=P-MC
  167. 1670  PRINT "Oh, I almost forgot:"
  168. 1680  PRINT "Is there any interest on the statement?"
  169. 1690  INPUT IOS
  170. 1700  PRINT "You said the interest was";IOS
  171. 1710  INPUT "Is this correct";ER$
  172. 1720  IF ER$="n" OR ER$="no" THEN 1680
  173. 1730  LET P=P+IOS
  174. 1740  PRINT "And now, the GRAND TOTAL!!!!!"
  175. 1750  FOR DELAY=1 TO 3000
  176. 1760  NEXT DELAY
  177. 1770  '   ---====COMPUTE FINAL BALANCE====---
  178. 1780  CLS
  179. 1790  IF P<0 THEN GOSUB 2150
  180. 1800  PRINT :PRINT :PRINT "The GRAND total is...";
  181. 1810   BEEP:BEEP:BEEP:BEEP:BEEP
  182. 1820  PRINT P;"."
  183. 1830  INPUT "Does this match the balance on your checkbook? It should...";YON$
  184. 1840  IF YON$="y" THEN 1980
  185. 1850  IF YON$="yes" THEN 1980
  186. 1860  IF YON$="Yes" THEN 1980
  187. 1870  FOR S=1 TO 30
  188. 1880   BEEP
  189. 1890   FOR DELAY=1 TO 80
  190. 1900  NEXT DELAY
  191. 1910  NEXT S
  192. 1920  PRINT "YOU MADE AN ERROR. HUMANS. THEY MAKE SO MANY ERRORS. WE COMPUTERS MAKE NONE."
  193. 1930  PRINT "PLEASE FIND YOUR ERROR AND THEN RE-RUN THIS PROGRAM."
  194. 1940  PRINT "ADIOS..."
  195. 1950  FOR DELAY=1 TO 1000
  196. 1960  NEXT DELAY
  197. 1970  END
  198. 1980  CLS
  199. 1990  PRINT "WHOOPEEEE!!!!"
  200. 2000  PRINT "IT'S AMAZING!"
  201. 2010  PRINT "If you have questions about this program, do one of the following:"
  202. 2020  PRINT "1) If you know Shawn personally, just go up to him and ask him,"
  203. 2030  PRINT "2) Mail Shawn your question at the following adress:"
  204. 2040  PRINT "      Shawn Peltier"
  205. 2050  PRINT "      4141 Veterans Boulevard---Room 300"
  206. 2060  PRINT "      Metairie, Louisiana 70002"
  207. 2070  PRINT "3) Call one of the following Bulletin Boards and leave"
  208. 2080  PRINT "him E-Mail:"  COMSPEC .LBR   1536   A 06/24/84 14:22<UNK! {000D}><UNK! {000A}>PURGE   .COM   1152   A 01/01/80 04:11   FLITPLN2.LBR  17920   A 11/04/84 20:29<UNK! {000D}><UNK! {000A}>DUMP    .DOC    768   A 02/04/84 05:34   HANG-MAN.LBR 105856   A 09/02/84 01:31<UNK! {000D}><UNK! {000A}>FROGGY  .BAS  26321   A 04/24/84 22:23   RAMDISK2.LBR   4992   A 09/19/84 19:07<UNK! {000D}><UNK! {000A}>TANYA   .TQT   3053   A 06/16/84 23:27   EJLUTIL .LBR  12544   A 08/24/84 00:52<UNK! {000D}><UNK! {000A}>GOMOKU  .EXE  3276
  209.